﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class RegimenesFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As RegimenesBE
        Dim tmpRegimenes As RegimenesBE = New RegimenesBE()
        Try
            With tmpRegimenes
                .Regimen = convertDTFromDb.ConvertString(dr.Item("Regimen"))
                .TipoCont = convertDTFromDb.ConvertShort(dr.Item("TipoCont"))
            End With
            Return tmpRegimenes
        Catch ex As Exception
            Throw
        Finally
            tmpRegimenes = Nothing
        End Try
    End Function
End Class
